HaCKeRz Kr0nlcKLeZ 1/HaCKeRz Kr0nlcKLeZ.iso/scriptz/chr0me61c.exe/aliases.ini

INI File | 1997-02-16 | 15.2 KB | 311 lines

[Aliases]
n0=op mode # +ooo $$1 $2 $3
n1=deop mode # -ooo $$1 $2 $3
n2=voice mode # +vvv $$1 $2 $3
n3=devoice mode # -vvv $$1 $2 $3
n4=ping ctcp $$1 ping
n5=send dcc send $$1
n6=chat dcc chat $$1
n7=x msg [e-mail] login # $$1
n8=w msg [e-mail] login # $$1
n9=xo msg x op # $$1
n10=wo msg w op # $$1
n11=xb msg x ban # $$1
n12=wb msg w ban # $$1
n13=xk msg x kick # $$1
n14=wk msg w kick # $$1
n15=xd msg x deop # $$1
n16=wd msg w deop # $$1
n17=xu msg x unsuspend # $$1
n18=wu msg w unsuspend # $$1
n19=xs msg x suspend # $$1 $$2
n20=ws msg w suspend # $$1 $$2
n21=F4 run c:\windows\notepad.exe $mircdir $+ page.log
n22=F5 write -c $mircdir $+ page.log
n23=F8 kick $chan %nick _(-cr-)_)Clones Detected At  $+ $parm4 $+ (_(-cr-)_ | unset %chan | unset %address | unset %nick | unset %clone
n24=gone set %nick $me | set %time $atime | nick $$?="Enter away nick" | .enable #pager | .enable #awaymsg | ame is Away .x(- $+ $$?="Enter your away message:" $+ -)x. ctcp $me PAGE To Page Me | .timer123 0 500 ame is Away .x(- $+ $! $+ -)x. ctcp $me PAGE To Page Me | away  $+ $! $+  Been Gone Since  $+ %time $+  | set %away $!
n25=back nick %nick | .timer123 off | ame is Back From .x(- $+ %away $+ -)x. | unset %away | unset %nick | unset %time | away | .disable #pager | .disable #awaymsg | if (%awaymsg == $null) { echo 4 -You Have 0 Messages.- } | else { echo 4 -You Have  $+ %awaymsg $+  Messages. To Read Them, Press F4. To Delete, Press F5.- } | unset %awaymsg
n26=status echo 4 -Flood Protection Status- | echo 4 -CTCP Prot %ctcpprot $+ - | echo 4 -DCC Protection %dccprot $+ - | echo 4 -CTCP Reply Protection %ctcpreply $+ - |  echo 4 -TEXT Protection %textprot $+ - | echo 4 -NOTICE Protection %noteprot $+ -
n27=credits echo 4 -i Would Like To Thank The Following People:- | echo 4 -CTFire For Having a Great Page And alt.mirc. iT Gave Me Alot Of Command Help For This script.- | echo 4 -The_Rat For Helping Me Test My Flood Protection.- | echo 4 -[Bush] For Helping Me On ALL The RAW I Know Today. | echo 4 -Hawkee For Being One Of The Nicest Guys On IRC. He Also Let Me Use The Swear Kick From Hawkee Pro- | echo 4 -The Users Without You Using iT, How Can You Be Reading This?- | echo 4 -And Most importantly, Khaled Mardam-Bey For Making This Awesome iRC Client. Couldn't Have Done iT Without You.-
n28=ircop set %total 0 | .enable #ircop | echo 4 $active -Listing IRCops. Please Wait- | who 0 o
n29=chanstat set %chan # | set %clone 0 | set %ircop 0 | set %op 0 | set %nonop 0 | set %voice 0 | set %here 0 | set %total 0  | set %novoice 0 | set %gone 0 | .enable #chanstat | who #
n30=make1 set %p1 on | set %pack1 $$?="Enter Filename:" | set %desc1 $$?="Enter Description:" | set %path1 $$?="Enter Path Of File(include File Name)):" | set %size1 $lof(%path1)
n31=make2 set %p2 on | set %pack2 $$?="Enter Filename:" | set %desc2 $$?="Enter Description:" | set %path2 $$?="Enter Path Of File(include File Name)):" | set %size2 $lof(%path2)
n32=make3 set %p3 on | set %pack3 $$?="Enter Filename:" | set %desc3 $$?="Enter Description:" | set %path3 $$?="Enter Path Of File(include File Name)):" | set %size3 $lof(%path3)
n33=make4 set %p4 on | set %pack4 $$?="Enter Filename:" | set %desc4 $$?="Enter Description:" | set %path4 $$?="Enter Path Of File(include File Name)):" | set %size4 $lof(%path4)
n34=fkhelp echo 4 -Filter Kick Help- | echo 4 -fkcáKicks Address string From Current Channel- | echo 4 -fkacáKicks Address string From All Channels- | echo 4 -fkb Ban-Kicks Address string From Current Channel- | echo 4 -fkab Ban-Kicks Address string From All Channels- | echo 4 -NOTE: Messages May Be Added After The Address string-
n35=mhelp echo 4 -Mass Kick Help- | echo 4 -Masso Ops Everyone In The Current Channel- | echo 4 -Massd Deps Everyone In The Current Channel- | echo 4 -Massv Voices Everyone In The Current Channel- | echo 4 -Massdv Devoices Everyone In The Current Channel- | echo 4 -Massk Kicks Everyone In The Current Channel- | echo 4 -Massok Kicks Every Op In The Current Channel- | echo 4 -Massnok Kicks Everyone Except Ops In The Current Channel- | echo 4 -Massb Bans Everyone From The Current Channel- | echo 4 -Masskb Ban-Kicks Everyone From The Current Channel- | echo 4 -NOTE: All The Commands Exclude You (eg. /massd Will Deop Everyone Except You.)-
n36=rkhelp echo 4 -Random Kick Help- | echo 4 -Rk Does A Random Kick In The Current Channel- | echo 4 -Rok Does A Random Kick On An Op In The Current Channel- | echo 4 -Rnok Does A Random Kick On A Non Op In The Current Channel-
n37=xwhelp echo 4 -Undernet X/W Help- | echo 4 -x/w <pass> Logins In To X/W- | echo 4 -x/w + k <nick> Kicks The Specified Nick- | echo 4 -x/w + o <nick> Ops Specified Nick- | echo 4 -x/w + d <nick> Deops Specified Nick- | echo 4 -x/w + b <Nick> <Type> Ban-Kicks Specified Nick- | echo 4 -x/w + s <nick> <Time> Suspends Nick For Specified Time- | echo 4 -x/w + u <nick> Unsuspends Specified Nick- | echo 4 -eg. xo JohnDoe Will Get X To Op JohnDoe In The Current Channel- | echo 4 -eg. wk JohnDoe Will Get W To Kick JohnDoe In The Current Channel- | echo 4 -NOTE: Message Are Optional With Kicks-
n38=clone .enable #clones | who # | %cdisplay Scanning For Clones On  $+ # $+ 
n39=a  {
n40=  %text = $replace(*1,a,σ) | %text = $replace(%text,b,▀) | %text = $replace(%text,c,τ) | %text = $replace(%text,d,╨) | %text = $replace(%text,e,Ω) | %text = $replace(%text,f,f) | %text = $replace(%text,g,g) | %text = $replace(%text,h,h)
n41=  %text = $replace(%text,i,ε) | %text = $replace(%text,j,J) | %text = $replace(%text,k,k) | %text = $replace(%text,l,ú) | %text = $replace(%text,m,m) | %text = $replace(%text,n,±) | %text = $replace(%text,o,°) | %text = $replace(%text,p,■)
n42=  %text = $replace(%text,q,╢) | %text = $replace(%text,r,«) | %text = $replace(%text,s,º) | %text = $replace(%text,t,t) | %text = $replace(%text,u,√) | %text = $replace(%text,v,v) | %text = $replace(%text,w,w) | %text = $replace(%text,x,╫)
n43=  %text = $replace(%text,y, ) | %text = $replace(%text,z,z) | %text = $replace(%text,>,╗) | %text = $replace(%text,<,½) | %text = $replace(%text,;,ñ) | %text = $replace(%text,1,╣) | %text = $replace(%text,2,▓) | %text = $replace(%text,3,│)
n44=  say %text
n45=  unset %text
n46=}
n47=bw {
n48=  unset %backtext |
n49=  %text = *1
n50=  %space = $chr(32)
n51=  %i = $len(%text) + 1
n52=  :next
n53=  dec %i 1
n54=  if %i == 0 { say %backtext | halt }
n55=  %thischar = $mid(%i,1,%text)
n56=  if %thischar == %space {
n57=    %thislet = á
n58=    if %backtext == $null { set %backtext %thislet | goto next }
n59=    else { set %backtext %backtext $+ %thislet | goto next }
n60=  }
n61=  if %backtext == $null { set %backtext %thischar | goto next }
n62=  else { set %backtext %backtext $+ %thischar | goto next }
n63=}
n64=r  {
n65=  unset %rainbow | unset %rainbow.msg | set %rainbow.msg *1 | set %length $len(%rainbow.msg) | set %cycles 1 | :next | if ($mid(%cycles,1,%rainbow.msg) == $null) { goto done } | if ($mid(%cycles,1,%rainbow.msg) == $chr(32)) { set %rainbow.str $chr(3) $+ $r(1,15) $+ $chr(160) $+ $chr(3) } | else { set %rainbow.str $chr(3) $+ $r(1,15) $+ $mid(%cycles,1,%rainbow.msg) $+ $chr(3) } | set %rainbow %rainbow %rainbow.str | inc %cycles 1 | goto next | :done
n66=  %rainbow = $remove(%rainbow,$chr(32)) | %rainbow = $remove(%rainbow,3) | %rainbow = $remove(%rainbow,7) | %rainbow = $remove(%rainbow,8) | %rainbow = $remove(%rainbow,9) | %rainbow = $remove(%rainbow,11) | say %rainbow
n67=}
n68=rk {
n69=  :begin
n70=  set %kick.var $r(1,$nick(0,#))
n71=  if ($nick(%kick.var,#) == $me) { goto begin }
n72=  kick # $nick(%kick.var,#) _(-cr-)_)Random Kick(_(-cr-)_
n73=}
n74=rok {
n75=  :begin
n76=  set %kick.var $r(1,$opnick(0,#))
n77=  if ($opnick(%kick.var,#) == $me) { goto begin }
n78=  kick # $opnick(%kick.var,#) _(-cr-)_)Random Op Kick(_(-cr-)_
n79=}
n80=rnok {
n81=  :begin
n82=  set %kick.var $r(1,$nopnick(0,#))
n83=  if ($nopnick(0,#) == 0) { halt }
n84=  kick # $nopnick(%kick.var,#) _(-cr-)_)Random Non Op Kick(_(-cr-)_
n85=}
n86=fkc {
n87=  if status isin $active {
n88=    echo 4 ERROR: This Command Only Works in a Channel Window
n89=  halt }
n90=  set %nicks $nick(0,#)
n91=  :nextnick
n92=  if ($$2 isin $address($nick(%nicks,#),1)) || ($$2 isin $address($nick(%nicks,#),2)) || ($$2 isin $address($nick(%nicks,#),3)) || ($$2 isin $address($nick(%nicks,#),4))  {
n93=    kick # $nick(%nicks,#) *3 _(-cr-)_)Filter Kick  $+ $$2 $+ (_(-cr-)_
n94=  inc %kicked }
n95=  dec %nicks
n96=  if %nicks > 0 {
n97=  goto nextnick }
n98=  if %kicked == 0 {
n99=  echo 4 _(-cr-)_)No Match Found For  $+ $$2 $+ (_(-cr-)_ }
n100=}
n101=fkac {
n102=  if status isin $active {
n103=    echo 4 ERROR: This Command Only Works in a Channel Window
n104=  halt }
n105=  set %ch $channel(0)
n106=  :Outloop
n107=  set %nicks $nick(0,$channel(%ch))
n108=  if $me !isop $channel(%ch) {
n109=    dec %ch
n110=  goto outloop }
n111=  :Inloop
n112=  if ($$2 isin $address($nick(%nicks,$channel(%ch)),1)) || ($$2 isin $address($nick(%nicks,$channel(%ch)),2)) || ($$2 isin $address($nick(%nicks,$channel(%ch)),3)) || ($$2 isin $address($nick(%nicks,$channel(%ch)),4)) {
n113=    kick $channel(%ch) $nick(%nicks,$channel(%ch)) *3 _(-cr-)_)Filter Kick Of  $+ $$2 $+ (_(-cr-)_
n114=  inc %kicked }
n115=  if %nicks > 1 {
n116=    dec %nicks
n117=  goto inloop }
n118=  dec %ch
n119=  if %ch > 0 {
n120=  goto outloop }
n121=  if %kicked == 0 {
n122=  echo 4 _(-cr-)_)No Match Found For  $+ $$2 $+ (_(-cr-)_ }
n123=}
n124=fkb {
n125=  if status isin $active {
n126=    echo 4 ERROR: This Command Only Works in a Channel Window
n127=  halt }
n128=  set %nicks $nick(0,#)
n129=  set %Banned 0
n130=  :nextnick
n131=  if ($$2 isin $address($nick(%nicks,#),1)) || ($$2 isin $address($nick(%nicks,#),2)) || ($$2 isin $address($nick(%nicks,#),3)) || ($$2 isin $address($nick(%nicks,#),4))  {
n132=    if %Banned != 1 {
n133=      ban -u30 # $nick(%nicks,#) 2
n134=    set %Banned 1 }
n135=    kick # $nick(%nicks,#) *3 _(-cr-)_)Filter Kick Of  $+ $$2 $+ (_(-cr-)_
n136=  inc %kicked }
n137=  dec %nicks
n138=  if %nicks > 0 {
n139=  goto nextnick }
n140=  if %kicked == 0 {
n141=  echo 4 _(-cr-)_)No Match Found For  $+ $$2 $+ (_(-cr-)_ }
n142=}
n143=fkba {
n144=  if status isin $active {
n145=    echo 4 ERROR: This Command Only Works in a Channel Window
n146=  halt }
n147=  set %ch $channel(0)
n148=  :Outloop
n149=  set %Banned 0
n150=  set %nicks $nick(0,$channel(%ch))
n151=  if $me !isop $channel(%ch) {
n152=    dec %ch
n153=  goto outloop }
n154=  :Inloop
n155=  if ($$2 isin $address($nick(%nicks,$channel(%ch)),1)) || ($$2 isin $address($nick(%nicks,$channel(%ch)),2)) || ($$2 isin $address($nick(%nicks,$channel(%ch)),3)) || ($$2 isin $address($nick(%nicks,$channel(%ch)),4)) {
n156=    if %Banned != 1 {
n157=      ban $channel(%ch) $nick(%nicks,$channel(%ch)) 3
n158=    set %Banned 1 }
n159=    kick $channel(%ch) $nick(%nicks,$channel(%ch)) *3 _(-cr-)_)Filter Kick Of  $+ $$2 $+ (_(-cr-)_
n160=  inc %kicked }
n161=  if %nicks > 1 {
n162=    dec %nicks
n163=  goto inloop }
n164=  dec %ch
n165=  if %ch > 0 goto outloop
n166=  if %kicked == 0 {
n167=  echo 4 _(-cr-)_)No Match Found For  $+ $$2 $+ (_(-cr-)_ }
n168=}
n169=masso {
n170=  if status isin $active {
n171=    echo 4 ERROR: This Command Only Works in a Channel Window
n172=  halt }
n173=  %i = 0
n174=  %nicks = ""
n175=  :nextnick
n176=  inc %i
n177=  if ($nopnick(%i,#) == $null) {
n178=    if ($len(%nicks) > 0) raw -q mode # +oooooo %nicks
n179=  halt }
n180=  %nicks = %nicks $nopnick(%i,#) | if (6 // %i) {
n181=    raw -q mode # +oooooo %nicks
n182=  %nicks = "" }
n183=  goto nextnick
n184=}
n185=massd {
n186=  if status isin $active {
n187=    echo 4 ERROR: This Command Only Works in a Channel Window
n188=  halt }
n189=  %i = 0
n190=  %nicks = ""
n191=  :nextnick
n192=  inc %i
n193=  if ($opnick(%i,#) == $null) {
n194=    if ($len(%nicks) > 0) raw -q mode # -oooooo %nicks
n195=  halt }
n196=  if $opnick(%i,#) != $me {
n197=  %nicks = %nicks $opnick(%i,#) }
n198=  if  (6 // %i) {
n199=    raw -q mode # -oooooo %nicks
n200=  %nicks = "" }
n201=  goto nextnick
n202=}
n203=massv {
n204=  if status isin $active {
n205=    echo 4 ERROR: This Command Only Works in a Channel Window
n206=  halt }
n207=  %i = 0
n208=  %nicks = ""
n209=  :nextnick
n210=  inc %i
n211=  if ($nopnick(%i,#) == $null) {
n212=    if ($len(%nicks) > 0) raw -q mode # +vvvvvv %nicks
n213=  halt }
n214=  %nicks = %nicks $nopnick(%i,#) | if (6 // %i) {
n215=    raw -q mode # +vvvvvv %nicks
n216=    %nicks = ""
n217=  }
n218=  goto nextnick
n219=}
n220=massdv {
n221=  if status isin $active {
n222=    echo 4 ERROR: This Command Only Works in a Channel Window
n223=  halt }
n224=  %i = 0
n225=  %nicks = ""
n226=  :nextnick
n227=  inc %i
n228=  if ($nopnick(%i,#) == $null) {
n229=    if ($len(%nicks) > 0) raw -q mode # -vvvvvv %nicks
n230=  halt }
n231=  %nicks = %nicks $nopnick(%i,#)
n232=  if (6 // %i) {
n233=    raw -q mode # -vvvvvv %nicks
n234=    %nicks = ""
n235=  }
n236=  goto nextnick
n237=}
n238=massi {
n239=  if status isin $active {
n240=    echo 4 ERROR: This Command Only Works in a Channel Window
n241=  halt }
n242=  $$?="Enter Channel"
n243=  set %i $nick(0,#)
n244=  :next | if $nick(%i,#) != $me invite $nick(%i,#) $!
n245=  dec %i
n246=  if %i > 1 goto next
n247=}
n248=Massk {
n249=  if status isin $active {
n250=    echo 4 ERROR: This Command Only Works in a Channel Window
n251=  halt }
n252=  set %kick.var 1
n253=  :next
n254=  if ($nick(%kick.var,#) == $null) { goto done }
n255=  if ($nick(%kick.var,#) == $me) { inc %kick.var 1 | goto next }
n256=  kick $$1 $nick(%kick.var,#) _(-cr-)_)Mass Kick(_(-cr-)_
n257=  inc %kick.var 1
n258=  goto next
n259=  :done
n260=}
n261=massnok {
n262=  if status isin $active {
n263=    echo 4 ERROR: This Command Only Works in a Channel Window
n264=  halt }
n265=  set %nopkick.var 1
n266=  :next
n267=  if ($nopnick(%nopkick.var,$$1) == $null) { goto done }
n268=  kick # $nopnick(%nopkick.var,$$1) _(-cr-)_)Mass Non Op Kick(_(-cr-)_
n269=  inc %nopkick.var 1
n270=  goto next
n271=  :done
n272=}
n273=massok {
n274=  if status isin $active {
n275=    echo 4 ERROR: This Command Only Works in a Channel Window
n276=  halt }
n277=  %i = 0
n278=  :start
n279=  %i = %i + 1
n280=  if ($opnick(%i,#) = $me) { goto start }
n281=  if ($opnick(%i,#) = $null) { halt }
n282=  kick # $opnick(%i,#) _(-cr-)_)Mass Op Kick(_(-cr-)_
n283=  goto start
n284=}
n285=massb {
n286=  if status isin $active {
n287=    echo 4 ERROR: This Command Only Works in a Channel Window
n288=  halt }
n289=  set %i 1
n290=  :start
n291=  set %nick $nick(%i,#)
n292=  if (%nick == $null) { halt }
n293=  if (%nick != $me) { ban # %nick 3 }
n294=  inc %i 1
n295=  goto start
n296=}
n297=masskb {
n298=  if status isin $active {
n299=    echo 4 ERROR: This Command Only Works in a Channel Window
n300=  halt }
n301=  set %i 1
n302=  :start
n303=  set %nick $nick(%i,#)
n304=  if (%nick == $null) { halt }
n305=  if (%nick != $me) { ban # %nick 3 | kick # %nick _(-cr-)_)Mass Ban Kick(_(-cr-)_ }
n306=  inc %i 1
n307=  goto start
n308=}